1 IFPEEK(22784)<>76THENLOAD"TERM2",8,1 10 IFPEEK(49152)<>169THENLOAD"TERM1",8,1 15 POKE650,128 20 POKE646,0:POKE251,0:POKE252,99 30 N%=0:NX%=12 40 POKE51224,255 50 POKE24816,6:POKE24817,0 60 POKE53280,11:POKE646,14:POKE53281,0 70 REM 80 N%=N%+1 100 R%=5:MO%=6:SE$="":ML=22784 110 POKE56,86:POKE644,86:CLR:OPEN5,2,0,CHR$(PEEK(24816))+CHR$(PEEK(24817)) 120 RE$=" ":SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF" 130 RP=2:RS=0:WP=RP:WS=RS 140 POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96 150 PA(0)=10:PA(1)=6:PA(2)=2 160 ML=22784:BR=300:PRINTCHR$(14):POKE24569,0 170 OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1 180 DN$="":GOTO200 190 PRINT"[147][212]ERMINAL [205]ODE":SYSML:CLOSE11:TM=0 200 BS=PEEK(51224) 201 PRINT"[147] [154] [194]AUD =[151]";BR;" [154][194]LOCK [211]IZE =[151]"BS 210 PRINT"1 - [212]ERMINAL [205]ODE":PRINT"[154]2 - [207][204][196] [208]ROTOCOL/[211][197][206][196] [208][210][199]" 220 PRINT"3 - [207][204][196] [208]ROTOCOL/[210][197][195][197][201][214][197] [208][210][199]" 230 PRINT"[151]4 - [196]ISK [195]OMMANDS":PRINT"5 - [195]HANGE [194]AUD" 240 TY$="PSP" 250 PRINT"6 - [193]UTODIAL/[193]UTOANSWER" 260 PRINT"[154]7 - [206][197][215] [208]ROTOCOL/[211][197][206][196] [208][210][199]":PRINT"8 - [206][197][215] [208]ROTOCOL/[210][197][195][197][201][214][197] [208][210][199]" 270 PRINT"[151]0 - [195]HANGE [194]LOCK [211]IZE" 280 PRINT"[151][209] - [209]UIT" 290 PRINT"[210]EVISED BY: [203]EN [211]PENCE" 308 GETA$:IFA$=""THEN308 309 IFA$="Q"ORA$="[209]"THEN880 310 ONVAL(A$)GOTO190,670,330,2340,3400,1160,3160,3200:IFA$="0"THEN3250 320 GOTO308 330 PRINT"" 340 PRINT"[206]AME OF [198]ILE?" 350 PRINT"[196]EFAULT DRIVE IS #0":PRINT">";:GOSUB920:S$=B$ 360 IFS$=""THENPRINT#5,"A";:GOTO190 370 IFMID$(S$,2,1)<>":"THENS$="0:"+S$ 380 GOSUB580:S$="@"+S$+T$+",W" 390 CLOSE2:OPEN2,8,2,S$:GOSUB990:IFESTHENPRINTES$:CLOSE2:GOTO340 400 PRINT#5,"TTTTTTTTTT"; 410 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN410 420 SYSML+18:IFSTTHEN470 430 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN430 440 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12 450 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN480 460 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO410 470 CLOSE2:PRINT#5,"SSSSSSSSSS";:PRINT:GOTO190 480 PRINT#5,"";:PRINT":";:GOTO410 490 PRINT"[212]YPE OF [198]ILE:" 500 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT">"; 510 GETB$:IFB$=""THEN510 520 TY$=B$:FL=0 530 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":RETURN 540 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":RETURN 550 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":RETURN 560 IFB$=CHR$(13)THENFL=1:RETURN 570 GOTO510 580 PRINT#5,"UUUUUUUUUU"; 590 GET#5,A$:IFST<>0THEN590 600 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO640 610 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO640 620 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO640 630 GOTO590 640 PRINT"[198]ILE [212]YPE: "A$"" 650 GET#5,A$:IFST=0THEN650 660 RETURN 670 PRINT"" 680 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT">";:GOSUB920:S$=B$ 690 IFS$=""THENPRINT#5,"A";:GOTO190 700 GOSUB490:IFFLTHENS$="":GOTO690 710 CLOSE2:OPEN2,8,2,S$+T$:GOSUB990:IFESTHENPRINTES$:CLOSE2:GOTO680 720 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT 730 GET#5,A$:IFST<>0ORA$<>"U"THEN730 740 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN740 750 SYSML+9:CK=ST 760 FORX=1TO400:NEXT 770 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN770 780 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT 790 PRINT#5,"ZZZZZZZZZZZZZZZ"; 800 IFPEEK(669)<>PEEK(670)THEN800 810 GET#5,A$:IFST<>0THEN810 820 IFA$=""THENPRINT":";:GOTO760 830 IFA$<>""THEN810 840 IFCK=0THENPRINT"-";:GOTO740 850 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN850 860 CLOSE2:GOTO190 870 SYSML+21:A$=CHR$(PEEK(634)):RETURN 880 REM QUIT TERMINAL 890 CLOSE5:CLOSE1:CLOSE2:CLOSE11 900 PRINTCHR$(9) 910 END 920 PRINT" [146][157]";:B$="" 930 GETA$:IFA$=""THEN930 940 IFA$=CHR$(20)THEN970 950 IFA$=CHR$(13)THENPRINT" ":RETURN 960 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO930 970 IFLEN(B$)=0THEN930 980 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO930 990 REM 1000 INPUT#1,E1$,E2$,E3$,E4$ 1010 ES$=E1$+","+E2$+","+E3$+","+E4$ 1020 ES=VAL(E1$):RETURN 1030 POKE22784,0:RUN 1160 B1=56577:B2=56579 1170 PRINT"[147][193]UTODIAL [211]ECTION ":POKE2023,0 1180 PRINT"[211]ELECT ONE: 1190 [153]"[ATN]NSWER AN RIGHT$NCOMING LENALL" 1200 [153]"[STR$]IAL OUT" 1205 [153]"(null)RESS ATNNOTHER (null)EY TO ATNBORT" 1210 [161]A$:[139]A$[178]""[137]1210 1220 [139]A$[178]"A"[167]1250 1230 [139]A$[178]"D"[167]1310 1240 [137]70 1250 [151]B2,32:[151]B1,0 1260 [153]"LOAD(null)AITING FOR A (null)ING..." 1270 X[178][194](B1):X[178]X[175]8:[161]A$:[139]A$[178]""[167][151]B1,32:[137]200 1280 [139]X[178]0[167][151]B1,32:[153]"(null)ING STR$ETECTED":[137]2290 1290 [137]1270 1300 [128] 1310 [151]B2,32:[151]B1,0 1320 [153]"LOADPEEKULLETIN PEEKOARDS ATNVAILABLEWAIT":[141]1640:[141]1790:[137]1360 1340 [153]"ONVALNTER (null)UMBER TO STR$IAL CMDCMD";:[133]D$ 1350 [142] 1360 [151]B1,32:T[178]100 1370 T[178]T[171]1:[139]T[179][177]0[137]1370 1380 D[178][195](D$):[129]X[178]1[164]D:N$[178][202](D$,X,1) 1390 [153]""N$"WAIT";:N[178][197](N$):[139]N[178]0[167]N[178]10 1400 [139]N$[179]"0"[176]N$[177]"9"[167][130]X:[137]1420 1410 [141]1450:[130]X 1420 NT[178]NT[170]1:[129]XB[178]1[164](40[171]D):[153]" ";:[130]XB 1430 [153]"STR$IALING VALNDED .... (null)UMBER OF TRIES";NT:[137]1540 1450 [129]N1[178]1[164]N 1460 [151]B1,0 1470 [129]T[178]1[164]14:[130]T 1480 [151]B1,32 1490 [129]T[178]1[164]14:[130]T 1500 [130]N1 1510 [129]T[178]1[164]65:[130]T 1520 [142] 1530 [128] 1540 CR[178]0:[129]ZZ[178]1700[164]1000[169][171]1:[161]A$:[139]A$[178]" "[167]1610 1570 [139]A$[178]"^"[137]1310 1580 [139][194](B1)[178]47[167]CR[178]CR[170]1:[139]CR[177]20[167]2290 1585 [139][194](B1)[178]46[167]1610 1590 [139]A$[178][199](19)[137]200 1600 [130]ZZ 1610 [151]B1,0:[129]ZZ[178]1[164]2000:[130] 1620 [153]"ONONON CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDONON" 1625 [137]1360 1640 [153]"1. LENAMPUTERS 2. 3. " 1650 [153]"4. 5. 6. (null)OONRISE" 1660 [153]"7. (null)ROBOTICS 8. VALRROR #62 9. " 1670 [153]"10. PEEKPEEKPEEKPEEK(null) (null)1 11. PEEKPEEKPEEKPEEK(null) (null)2 12. PEEKPEEKPEEKPEEK(null) (null)1" 1680 [153]"13. PEEKPEEKPEEKPEEK(null) (null)2 14. 15. " 1690 [153]"16. 17. 18. " 1700 [153]"19. 20. 21. " 1710 [153]"22. 23. 24. " 1720 [153]"25. 26. 27. " 1730 [153]"28. 29. 30. " 1740 [153]"31. 32. 33. " 1750 [153]"34. 35. 36. " 1760 [153]"37. 38. 39. " 1770 [153]"40. 41. (null)ONE OF THE ATNBOVE" 1780 [142] 1790 NT[178]0 1800 [153]""; 1810 [133]A$:[139][197](A$)[178]0[167]A$[178]"8":[153]"8" 1820 [145][197](A$)[137]1880,1890,1900,1910,1920,1930,1940,1950,1960,1970,1980,1990,2000 1825 [145][197](A$)[171]13[137]2010,2020,2030 1830 A[178][197](A$)[171]16 1840 [145]A[137]2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200 1850 A[178][197](A$)[171]33 1860 [145]A[137]2210,2220,2230,2240,2250,2260,2270,2280 1870 [139]A[177]8[137]1310 1880 D$[178]"745-6129":QL$[178]"(null)ASSWORD = ":[142]:[143] #01 1890 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #02 1900 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #03 1910 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #04 1920 D$[178]"LEFT$ANG UP":QL$[178]"(null)ASSWORD = ":[142]:[143] #05 1930 D$[178]"469-3305":QL$[178]"(null)ASSWORD = ":[142]:[143] #06 1940 D$[178]"622-7198":QL$[178]"(null)ASSWORD = ":[142]:[143] #07 1950 D$[178]"621-3858":QL$[178]"(null)ASSWORD = ":[142]:[143] #08 1960 D$[178]"LEFT$ANG UP":QL$[178]"(null)ASSWORD = ":[142]:[143] #09 1970 D$[178]"487-5833":QL$[178]"(null)ASSWORD = ":[142]:[143] #10 1980 D$[178]"481-8661":QL$[178]"(null)ASSWORD = ":[142]:[143] #11 1990 D$[178]"481-9047":QL$[178]"(null)ASSWORD = ":[142]:[143] #12 2000 D$[178]"277-9991":QL$[178]"(null)ASSWORD = ":[142]:[143] #13 2010 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #14 2020 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #15 2030 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #16 2040 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #17 2050 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #18 2060 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #19 2070 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #20 2080 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #21 2090 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #22 2100 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #23 2110 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #24 2120 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #25 2130 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #26 2140 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #27 2150 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #28 2160 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #29 2170 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #30 2180 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #31 2190 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #32 2200 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #33 2210 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #34 2220 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #35 2230 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #36 2240 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #37 2250 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #38 2260 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #39 2270 D$[178]"LEFT$ANG (null)P":QL$[178]"(null)ASSWORD = ":[142]:[143] #40 2280 [137]1340 2290 S[178]54272:[129]L[178]0[164]24:[151]L[170]S,0:[130]:[151]S[170]1,130:[151]S[170]5,9:[151]S[170]15,30:[151]S[170]24,15 2300 [151]S[170]4,21:[129]T[178]1[164]20:[130]:[151]S[170]4,255:[129]T[178]1[164]20:[130] 2310 [151]S[170]24,0:[151]S[170]15,0:[151]S[170]5,0:[151]S[170]1,0:[129]L[178]0[164]24:[151]S[170]L,0:[130] 2330 [152]5:[151]2023,0:[153]:[153]:[153]QL$:[137]190 2340 [159]6,8,15:[153]"LOAD":[137]2650 2560 [143] 2570 C$[178]"":[153]"> POKECMDWAIT"; 2580 [161]B$:[139]B$[178]""[167]2580 2590 [139]B$[178][199](13)[167][153]" ":[137]2610 2595 [139]B$[178][199](20)[175][195](C$)[177]0[167][153]"CMD WAITPOKE CMDCMD";:C$[178][200](C$,[195](C$)[171]1):[137]2580 2596 [139]B$[178][199](20)[167]2580 2600 [153]B$;" WAITPOKECMD";:C$[178]C$[170]B$:[137]2580 2610 [152]6,C$ 2620 [143] 2630 [132]6,A$,B$,C$,D$:[153]A$" "B$"WAIT "C$" "D$ 2640 [143] 2650 [153]"STR$-STR$IRECTORY" 2660 [153]">-STR$ISK LENOMMAND" 2670 [153]"(null)-(null)UIT" 2680 [153]"(null)-STR$ISK (null)TATUS" 2690 [161]A$:[139]A$[178]""[167]2690 2700 [139]A$[178]"D"[167][153]"STR$IRECTORY, (null)LEFT$RIGHT$ASC(null)=(null)AUSE, (null)(null)CHR$(null)=ATNBORT":[158]52320:[137]2650 2710 [139]A$[178]"."[176]A$[178]">"[167]2560 2720 [139]A$[178]"Q"[167][160]6:[160]7:[137]200 2730 [139]A$[178]"S"[167]2620 2740 [137]2690 2750 [143] 2760 NB[178]NB[171](NB[179]0)[172]65536 2770 [139]NB[179]61440[167]UE[178]0:[142] 2780 [139]NB[178]61440[167]UE[178]128:[142] 2790 [153]"READ ERROR# ";NB[171]61440:[142] 3160 [153][199](13)"(null)ETURN ATNBORTS...":TY$[178]"PSP":[153]"(null)ROGRAM (null)AME? ";:[141]3290:[139]I$[178]""[167]200 3161 [153]"[(null)]ROGRAM, [(null)]EQ. OR [(null)]ORDPRO?" 3162 [161]A$:[139]A$[178]"P"[176]A$[178]"(null)"[167][153]"(null)ROGRAM":SA[178]0:PK[178]1:I$[178]I$[170]",P,R":[137]3166 3163 [139]A$[178]"W"[176]A$[178]"(null)"[167][153]"(null)ORD(null)RO":SA[178]0:PK[178]3:I$[178]I$[170]",P,R":[137]3166 3164 [139]A$[178]"S"[176]A$[178]"(null)"[167][153]"(null)EQUENTIAL":SA[178]2:PK[178]2:I$[178]I$[170]",S,R":[137]3166 3165 [137]3162 3166 [160]1:[160]2:[159]1,8,15:[159]2,8,SA,I$:[132]1,A,B$,C,D 3167 [139]A[177]0[167][153]A;""B$"WAIT";C;D:[160]2:[160]1:[139]A[178]64[167]I$[178][200](I$,[195](I$)[171]4):[137]3161 3168 [139]A[177]0[167]3160 3180 [158]49173:[151]51227,PK:[158]49164:[139][194](512)[178]1[167][160]2:[160]1:[137]190 3190 [158]49173:[151]51224,BS:[158]49158:[160]2:[160]1:[137]190 3200 [153][199](13)"(null)ETURN ATNBORTS...":TY$[178]"PSP":[153]"(null)AVE ATNS? ";:[141]3290:[139]I$[178]""[167]200 3210 [158]49173:[158]49161:[139][194](512)[178]1[167]190 3220 T$[178]","[170][202]("PSP",[194](51227),1)[170]",W" 3221 [139][194](51227)[178]1[167][153]"(null)ECEIVING (null)(null)CHR$ ASCILE":[137]3230 3222 [139][194](51227)[178]2[167][153]"(null)ECEIVING (null)VAL(null) ASCILE":[137]3230 3223 [139][194](51227)[178]3[167][153]"(null)ECEIVING (null)(null)(null) ASCILE":[137]3230 3230 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310 3240 [158]49173:[158]49155:[160]2:[129]X[178]1[164]1000:[151]668,[194](667):[137]190 3250 [153][199](13)"(null)ETURN ATNBORTS...":[153]"PEEKLOCK (null)IZE? ";:[141]3290:[139]I$[178]""[167]200 3260 BS[178][197](I$):[139]BS[179]40[167]BS[178]40 3270 [139]BS[177]255[167]BS[178]255 3280 [151]51224,BS:[137]200 3290 I$[178]"" 3300 [153]" WAITCMD"; 3310 [161]A$:[139]A$[178]""[167]3310 3320 [139]A$[178][199](13)[167]3390 3330 [139]A$[178][199](20)[167]3370 3340 [139][195](A$)[177]20[167]3310 3350 [139]([198](A$)[175]127)[179]32[167]3310 3360 [153]A$;:I$[178]I$[170]A$:[137]3300 3370 [139][195](I$)[178]0[167]3310 3380 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]3300 3390 [153]" ":[142] 3400 [153]"LOAD"; 3405 [153]"PEEKAUD (null)ATE (300 - 450)?PRINT#";BR;"CMDCMDCMDCMDCMDCMD";:[133]BR 3410 [153]"POKE";:[139]BR[179]300[176]BR[177]450[167][153]"RIGHT$NVALID PEEKAUD (null)ATE":[137]3405 3420 V[178]1.02273E6[173]BR 3440 HI[178][181](V[173]256):LO[178]V[171]HI[172]256 3450 [151]665,LO:[151]666,HI 3460 [137]200